text segment 'code'
     assume CS:text,DS:text
     org 100h
myproc proc
        mov AX,-22215;
        mov DH,1
        push   AX

        push   AX
        lea    DI,vncod
        mov    CX,6
        mov    AL,' '
        rep    stosb
        pop    AX
        lea    DI,vncod+5
        mov    CX,10
        mov    Bl,' '
        cmp DH,0
        je  pol
        cmp    AX,0
        jns     pol
        mov    Bl,'-'
        neg    AX
pol:    mov    DX,0
        div    CX
        or     DL,30h
        mov    [DI],DL
        dec    DI
        cmp    AL,0
        jne    pol
        mov    [DI],BL
        mov    DX,OFFSET vncod
        mov    AH,09h
        int    21h
        ret
     jmp Near Ptr Point;
        vncod db '++++++$';
     mov AH,02H;
     mov DL,'e';
     int 21h
     sub AX,1
     mov SP,0FFE9h;
     mov SP,AX;
     sub AX,AX
     mov BX,AX;
     mov SI,AX;
     mov AX,a[BX]
     mov Al,b[BX]
     mov BX,AX
     sub BX,BX
     pop AX;
     sub AH,AH
     mov AL,34h
     Shl AX,1
     mov a,AX
     inc a
     cmp AX,a
     jge point
     mov b[BX],AL
     inc a[BX]
     inc b[BX]
point:
     nop;
     mov AX,4C00h;
     int 21h;
   bufer db '............'
   a dw 2523h
   b db 25h
myproc endp
;     filename  DB 'proc1',10,13,'$'
;     nextsegm  DW ?
;     nextoffs  DW ?
text ends
     end myproc